UC知道VB里制作记事本的"打开"文件的按钮代码问题,请VB高手指教:
来源：百度知道 编辑：UC知道 时间：2024/05/01 08:03:28
打开的代码怎么写,请提供代码(最好加上注释),谢谢,悬赏分数不多,略表心意......
以下是"yangjun33"朋友的回答:
PS;本人稍改动,但第二句就出错了,不知道为什么?
Private Sub m_Open_Click() /mnuopen改成我的"m_open
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" '''''''''////////////启动时出错了,不知道为什么?有谁能解释下吗
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" & FileName
End Sub
以下是"yangjun33"朋友的回答:
PS;本人稍改动,但第二句就出错了,不知道为什么?
Private Sub m_Open_Click() /mnuopen改成我的"m_open
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" '''''''''////////////启动时出错了,不知道为什么?有谁能解释下吗
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" & FileName
End Sub
采用以下代码应该可以实现记事本的打开操作
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" & FileName
End Sub
?
你运行的时候出现什么错误了啊？
他说的对啊 朋友
你是不是没有加 CommonDialog 控件啊？
VB打开的时候默认的没有这个控件 你需要自己添加
工程－－部件,添加microsoft common dialog conntrol